Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PROGEDIT/3943.ZIP/EVOLV201.ZIP/PROG1.MNT

Text File | 1993-03-07 | 631b | 34 lines

Program MultiplyTwo;:>;:>.( {<^>}( This program reads in two numbers and prints the productVar:>;( <^> : <^> {The first number}( FirstNumberInteger)
<^> : <^> {The second number}( SecondNumber@6
)
<^> : <^> {The answer}( MyResult@6
)
)
)
Function <^>(<^>;<^>) : <^>;( MultiplyTwoNumbers<^> : <^>( OneNumber@6
)
<^> : <^>( AnotherNumber@6
)
@6
begin:>;:>end( <^> := :> * ( @14
@16
@19
)
)
)
begin:>;:>end( readln(:>,:>)( @5
@8
)
<^> := <^>(:>,:>)( @11
@14
@5
@8
)
writeln(:>,:>)( 'The first: '@5
' The Second: '@8
' The Product: '@11
)
)
)
 0